home *** CD-ROM | disk | FTP | other *** search
-
-
-
- CCCCLLLLAAAACCCCRRRRTTTT((((3333FFFF)))) CCCCLLLLAAAACCCCRRRRTTTT((((3333FFFF))))
-
-
-
- NNNNAAAAMMMMEEEE
- CLACRT - applie a plane rotation, where the cos and sin (C and S) are
- complex and the vectors CX and CY are complex
-
- SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
- SUBROUTINE CLACRT( N, CX, INCX, CY, INCY, C, S )
-
- INTEGER INCX, INCY, N
-
- COMPLEX C, S
-
- COMPLEX CX( * ), CY( * )
-
- PPPPUUUURRRRPPPPOOOOSSSSEEEE
- CLACRT applies a plane rotation, where the cos and sin (C and S) are
- complex and the vectors CX and CY are complex.
-
-
- AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
- N (input) INTEGER
- The number of elements in the vectors CX and CY.
-
- CX (input/output) COMPLEX array, dimension (N)
- On input, the vector X. On output, CX is overwritten with C*X +
- S*Y.
-
- INCX (input) INTEGER
- The increment between successive values of CY. INCX <> 0.
-
- CY (input/output) COMPLEX array, dimension (N)
- On input, the vector Y. On output, CY is overwritten with -S*X +
- C*Y.
-
- INCY (input) INTEGER
- The increment between successive values of CY. INCX <> 0.
-
- C (input) COMPLEX
- S (input) COMPLEX C and S define a complex rotation [ C
- S ] [ -S C ] where C*C + S*S = 1.0.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- PPPPaaaaggggeeee 1111
-
-
-
-